      SUBROUTINE DETCC(FI,DFI,VCC,FRES,NEPE,I_ELET,IC,IDCASO,NFIX,KODE)

      IMPLICIT DOUBLE PRECISION (A-H,O-Z)

      INCLUDE 'param_dim.inc'

      DIMENSION FI(NX),DFI(NX),KODE(NX)

      INTEGER FRES
      INTEGER IDCASO(NCasosX,3),I_ELET(16,NELEX)

C	Introduz todas as CC como fluxo nulo
C       no contorno externo (NFIX)
      DO I=1,NFIX
         KODE(I)=1
         FI(I)=0.0
      END DO

C     Atribui aos nos referentes aos eletrodos os valores das 
C     condicoes de contorno e IMPRIME

C     Eletrodos caso de carregamento em questao
c        IEL1= IDCASO(IC,1)
c        IEL2= IDCASO(IC,2)

      WRITE(FRES,1000)
 1000 FORMAT(//2X,'CONDICOES DE CONTORNO'//,
     &         5X,'ELETRODO',3X,'NO',6X,'CODIGO',5X,
     *            'VALORES PRESCRITOS')
      SVCC= VCC
      do iel =1,2
         SVCC= -1.D0*SVCC
         DO I=1,NEPE
            ino= I_ELET(idcaso(ic,iel),I)
            FI(ino)= SVCC
            WRITE(FRES,950) idcaso(ic,iel),ino, KODE(ino),FI(ino)
 950        FORMAT(I5,5X,5X,I3,8X,I1,8X,E14.7)
         ENDDO
      enddo

c     Identifica o eletrodo de referencia.
        IREF= IDCASO(IC,3)

C     Calcula o no que sera tomado como referencia (Potencial Zero)
C     (na metade do eletrodo de referencia)

      noref= I_ELET(IREF,1+NEPE/2)
      KODE(noref) = 0
      FI(noref)   = 0.d0

      WRITE(FRES,950) IREF,noref, KODE(noref),FI(noref)

      RETURN
      END

